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BLAGGER 



L e V£- L 

□ □ 


rr£ Af 
□ E? 


S £&&£: 

□ □ □ 1 □ □ 


MI S COf*£ 

□ □ 1 □ □ □ 


Dopo esserci cimentati con 
l’incredibile gioco Sorcery, 
presentato nel numero pre¬ 
cedente, eccoci di nuovo alla 
carica con un nuovo appas¬ 
sionante game di recentissi¬ 
ma importazione. 

Blagger, questo il nome del 
nuovo gioco, è una avventu¬ 
ra di alto livello grafico che 
non mancherà di entusia¬ 
smarvi e farvi passare in 
modo piacevole qualche se¬ 


rata. 

Il personaggio di turno, sog¬ 
getto dell’avventura è Roger 
il ladro, che voi dovrete aiu¬ 
tare nel suo ritorno a casa 
attraverso 20 schermi pieni 
di difficoltà di ogni tipo. 

Il sistema per superare cia¬ 
scuno schermo consiste nel 
raccogliere ' tutte le chiavi 
d’oro sparse per il percorso 
e raggiungere la speciale 
porta contrassegnata dalla 


scritta “SAFE”. 

Vi accorgerete presto, gio¬ 
cando, che il compito di rag¬ 
giungere tutte le chiavi non 
è affatto semplice e per riu¬ 
scirci occorre scegliere un 
preciso percorso e valutare 
attentamente tempi e spo¬ 
stamenti degli oggetti in 
movimento. 

A differenza di molti altri 
games in cui volta a volta vi 
trovate in situazioni di gio- 
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co differenti, qui tutto è cro¬ 
nometricamente preciso e 
altrettanto precisi dovran¬ 
no essere i vostri sposta¬ 
menti per riuscire. 

Il numero di 20 schermi di¬ 
versi da superare, garanti¬ 
sce che scoperta la giusta 
via per passare di uno 


schermo, ci sia sempre da 
studiare il successivo e 
quindi mai di annoiarsi. 

Caricamento 
e comandi 

Per caricare il gioco riavvol¬ 


gere la cassetta e battere il 
consueto comando RUN 
“cas”: una volta caricata la 
schermata premere la bar¬ 
ra-spaziatrice e pazientare 
ancora qualche minuto. 

La piacevole musichetta del¬ 
la Pantera Rosa e l'immagi¬ 
ne dello schermo finale vi 
avvertirà del corretto cari¬ 
camento:- potrete a questo 
punto iniziare premendo il 
tasto fire del joystick o la 
barra spaziatrice, oppure 
ancora,aspettare il demo. 

I comandi sono soltanto tre: 
cursore sinistro/destro per 
la direzione e la barra per 
saltare, oppure le due dire¬ 
zioni del joystick e il pul¬ 
sante per il salto. 


Il gioco 

Il primo schermo da supera¬ 
re presenta tutti i tipi di dif- 
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ì 


ELENCO DEI TITOLI DISPONIBILI 


i tascabili Jackson sono uno 
strumento prezioso per chi lavora 
con il computer. 

•SINCLAIR SPECTRUM cod. 017H 
•VIC 20 cod. 005H 
•COMMODORE 64 cod. 002H 
PC IBM cod. 018H 
•APPLE Ile cod. 003H 
■SHARP MZ80A cod. 014H 
■LA PROGRAMMAZIONE cod. 004H 
■WORD STAR cod. 008H 
•UNIX cod. 009H 
LOGO cod. 020H 
■MS-DOS cod. 019H 
-PROGRAMMI DI STATISTICA cod. 
015H 

•CP/M cod. 01 IH 
•PC-DOS cod. 012H 


BASIC cod 007H 
-ASSEMBLER Z80 COd. 016H 
-ASSEMBLER 6502 cod. 013H 
•COBOL cod. 001H 
•FORTRAN 77 cod. 01 OH 
-PASCAL cod.006H 
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fiooltà ohe troverete in se¬ 
guito e alle quali dovrete 
abituarvi: come piani mobili 
o cedevoli, oggetti pericolosi 
fermi o in movimento, ecc. 

I piani mobili permettono lo 
spostamento solo in un sen¬ 
so, quelli cedevoli (colore 
blu), consentono il passag¬ 
gio dell’omino generalmente 
per una sola volta. 

Nel decidere il percorso da 
prendere è necessaria sem¬ 
pre una accurata analisi di 
tali fattori, altrimenti un 
urto contro un oggetto inde¬ 
siderato o una situazione 
senza uscita, concluderà 
presto la missione. 

Tenere sempre in considera¬ 
zione che non potete effet¬ 
tuare salti oltre una certa 
altezza e che il tempo dispo¬ 
nibile per passare di scher¬ 
mo, seppure molto, non è il¬ 
limitato. 

Durante il gioco, nella parte 
inferiore del video compaio¬ 
no informazioni riguardanti 
il numero di schermo, le vite 
rimaste, i punti e una barra 
verde indicante il tempo tra¬ 
scorso. 

II punteggio è calcolato in 
base al tempo impiegato nel 
passare di schermo: minore 
sarà tale tempo, più alto sa¬ 
rà il punteggio finale; ogni 
chiave presa, aggiunge 100 
punti. 


Il primo schermo 

Con un po’ di abilità e pa¬ 
zienza è abbastanza facile 
trovare la giusta via per 
passare di schermo, cosa 
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che avviene, ripetiamo, una 
volta prese tutte le chiavi e 
raggiunta la porta contras- 
segnata dalla scritta “safe”; 
ciononostante, per i più pi¬ 
gri, ecco in sintesi la nostra 
strategia per risolvere il 
primo. 

Dalla posizione iniziale por¬ 
tatevi sulla porta d’uscita e 
saltate in direzione del pia- 
no-mobile sopra di voi. 

Con un nuovo balzo evitate 
l’ostacolo e contemporanea¬ 
mente prendete la chiave; 
poi dirigetevi verso l’ingres¬ 
so della banca “bank”. 

Qui scendete sfondando la 
parte iniziale dei piani cede¬ 
voli, prendete la chiave sita 
in basso e poi, con salti suc- 



7 







































cessivi, risalite i piani gua¬ 
dagnando il piccolo ripiano 
a sinistra. 

Dopo aver preso la terza 
chiave portatevi con un bal¬ 
zo all’uscita della banca e 
scendete per conquistare le 
ultime due chiavi. 

Per compiere quest’ultima 
impresa, senza essere 
schiacciati dall'ostacolo mo¬ 
bile, utilizzate il ripiano più 
in basso e ricordate che l’an¬ 
golo inferiore destro, imme¬ 
diatamente sotto la chiave, è 




un posto sicuro dove non sa¬ 
rete distrutti. 

L’ultima difficoltà consiste 
nel riuscire con due balzi 
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ben ponderati ad evitare l’o¬ 
stacolo accanto alla porta 
d’uscita ma, con un po’ di 
pratica, non costituirà più 


un problema e di volta in 
volta supererete meccanica- 
mente l’intero schermo. 









































Guida all'input MSX 


Per motivi di stampa e chia¬ 
rezza, i caratteri grafici o 
comunque tutti i simboli il 
cui codice (ASC(“car.”)) è 
superiore a 127, compaiono 
nei listati codificati in modo 
particolare. 

Ogni carattere o serie di ca¬ 
ratteri uguali e contigui, è 
sostituito da parentesi graf¬ 
fe contenenti: 

- il numero dei caratteri 


(omesso se=l) 

- la lettera maiuscola “C” 
oppure “A” a seconda se si 
tratta del set normale (ca¬ 
ratteri ottenuti con 
CHR$(l)+CHR$(n)) 

- codice “n” del carattere o 
dei caratteri da battere. 
Qualsiasi computer MSX voi 
abbiate, potete riferirvi al 
manuale per trovare la cor¬ 
rispondenza tra il codice-ca¬ 


rattere dato e il simbolo a 
cui corrisponde. 

ESEMPIO: 

(3C190 } = battere 3 volte 
0 carattere PI-GRECO 
(A67 } = battere il carat¬ 
tere cuore 
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Mazeman 


In questo gioco vi trovate 
prigionieri in un labirinto 
da cui dovete uscire il più 
rapidamente possibile per 
non essere catturati dal ter¬ 
ribile Mazeman. Il gioco vi 
offre una visione tridimen¬ 
sionale del labirinto stesso. 
Sullo schermo appaiono le 
divrse strade che voi potete 
imboccare. Una freccia po¬ 
sta in basso rappresenta 
una specie di bussola che vi 
indica l’effettiva direzione 
che state seguendo. I curso¬ 
ri destro e sinistro permet¬ 
tono di girarvi. Premendo il 
cursore Su fate un passo in 
avanti, viceversa il cursore 
" Giù vi fa fare un passe indie¬ 
tro. 

Il programma contiene co¬ 
munque una routine che vi 
permette di giocare con il jo¬ 
ystick. 

Alla prima partita il tempo 
massimo è di 400 secondi. 
Se riuscite a raggiungere 
l’uscita entro il tempo mas¬ 
simo, verrà visualizzato il 
tempo trascorso e la succes¬ 
siva gara avrà come limite 
l’ultimo tempo ottenuto. 

Il programma sfrutta una 
sofisticata tecnica basata 
sui puntatori dei colori 
dell'MSX, che rende velocis¬ 
simo il cambiamento 
dell’immagine. 

IO 



1000 REM MAZEMAN 

1010 REM INIZIALIZZAZIONE 

1020 SCREEN1,,0 :CLEAR500,&HEEFF 

1030 DEFUSR-&HEF00:KEY0FF:WIDTH32 

1090 0NINTERVAL-50G0SUB1230 

1050 DIMS$(11),C$(13), W$(18,2,1), M$(9,9),M 

Tt(9,9>:TT*=900 

1060 L0CATE9,11 :PRINT"ATTENDERE.:GOSUB 
2000 

1070 GOSUB1 720:GOSUB1180 :INTERVALON 

1080 G0SUB1390 

1090 I$-INKEY$:F0RI*»0T02 

1100 IPJ=STICK(IJ):IFIP*THENIt=2 

1110 NEXTIt:IFIPt=0THEN1090 

1120 IFIPt-1ANDMt(X* , Yt ) =■ 2THENG0T0 1 310 

1130 IFIPJ-1ANDYt<9THENIFM* (X* ,YJ-M )>OTHEN 

Yt=Yt*1 :G0SUB1180 

1190 IFIPt-5ANDYt>0THENIFMÌ(X%,YJ-1)>OTHEN 
Yt-Yt-1:GOSUB1180 

1150 IFIPt-3THENSP*=(SPt»1 )AND3 :GOSUB1 180 : 
G0SUB1520 • 

ri 60 IFIPt-7THENSPt = (SPt-1)AND3:GOSUB1180 : 
G0SUB1570 
1170 G0T01080 

1180 IFIP*=30RIPt=7THEN1210 

1190 XSt=XSt‘(3AND(IPt=1ANDSPt>10RIPt=5AND 
SPJ=3))-(3AND(IPt=5ANDSP*-10RIPt=1ANDSPj=3 
)) 

1200 YSt>YSt*(3AND(IPt=1ANDSPÌ-20RIP*=5AND 
SP* = 0) )-(3AND(IPÌ=5ANDSPjU20RIP*=1 ANDSPt = 0 






)) 

1210 PUTSPRITE0,(XS*,YS*),4,SP*:RETURN 
1220 REM TEMPO 

1 230 TMt-TM$*1 :L0CATE23,22 :PRINTUSING "##//// 
" j TMt 

12140 IFTM*<TTJTHENRETURN 
1250 INTERVALOFF 
1 260 CLS: LOCATE 1 , 1 1 

1270 PRINT"SEI STATO TROPPO LENTO!" 

1280 PRINT" MAZEMAN TI HA CATTURATO!" 

1290 RETURN1360 
1300 REM FUORI 

1310 CLS:INTERVALOFF:COLOR 15 
1 320 L0CATE1 ,11 :PRINT"COMPLIMENTI ! SEI RIU 
SCITO" 

1330 PRINT" A FUGGIRE DAL LABIRINTO.." 

13140 PRINT” HAI IMPIEGATO " ; TM t ; " SECON DI . " 
1350 IFTM*<TT*THENTT*=TM$ 

1360 PUTSPRITEO.(128,208),A.0 
1370 FORICIT01 0000 :NEXT:G0T01070 
1380 REM VISTA 

390 FORWt«2T00STEP-1 :VJ-YJ + 3'Wt 
1 14 00 IFV$ = 1 OTHENGOSUB1 650:K*-W*:W$ = 0 
1410 IFV$<1OTHENIFMJ(X*,V*)=0THENG0SUB1650 
:K*=W*:Wt=0 

1420 NEXTW$:0*=0:IFM*(XJ,YiS + 2-K*)-2THEN0$- 
1 :Wf = Kt: G0SUB1 650 

1430 IFXI=9THENF0RD$=3T01»KJSTEP-1:OC*=0:G 
0SUB1 670 :N EXTD $:G0T014 70 
1 440 V$ = 0:F0RD* = 3T01'KÌSTEP-1 :0Ct = 0 
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1950 IFM*(X**1,Yt*Vt)>0THEN0Ct=1 
1 4 60 GOSUB1 670 : V? = V$ +1 :NEXTD? 

1 1470 IFX*=0THENF0RDt=6T09»KtSTEP- 1 :0C*=0:G 
OSUB1670:NEXTD*:GOTO1500 

1 U80 V*-O:FORD*=6TO9+KJSTEP-1:OCJ-0:IFM*(X 
J-1,YJ'VJ)>OTHENOCÌ-1 
1 1490 G0SUBl670:Vt-V**1 :NEXTD* 

1500 RETURN ! 

1510 REM GIRA A DESTRA 
1520 FORI*=0TO9:FORJI-0TO9 
1530 MTJ(J*,I*)-Mt(It.9-JJ) 

15140 NEXTJt.IÌ 

1550 SWAPX*,YJ:X*=9-X*:G0T01610 
1560 REM GIRA A SINISTRA 
1570 F0RI$=0T09:F0RJ*=0T09 
1580 MT*(J*,9-I*)-M*(IJ,JJ) 

1590 NEXTJÌ.I? 

1600 SWAPX*,Y*:Y*-9-X* 

1610 F0RIÌ=0T09:FORJ%=0TO9 
1620 M*(J*,IJ)-MTJ(J*,I») 

1630 NEXTJ*,I$:RETURN 
16140 REM MURO 

1 650 A = USR(VARPTR(W?(0,W* ,0* )') ): RETURN 
1 660 -REM PORTA 
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1670 C1J=0:C2?=128-(32AND(D$=20RD$=5)) 

1 680 I$ = 8204 + D5G : J $ = 821 0 + D1E 

1690 IFOCJTHENVPOKEI*,CI*:VP0KEJ*,C2»ELSEC 
1* = 14«:C2* = C1*sOC* = 1sGOT01 690 
1700 RETURN 

1710 REM DISEGNO SCHERMO 

1720 RESTORE2480:0*=0:SPJ=1:TMt=0:XS*-113: 
7S*=159 

1730 FORI*=OT09:FORJt=OT09 
1740 R E A DM I ( I $ , J i ) 

1 750 NEXTJ*,I % : Xt = 0: Yt = 0 
1760 COLOR 0,0,0:CLS 
1770 RESTORE2590 
1 780 G0SUB1 970:F0RI* = 0T01 1 
1790 LOCATEO,1$:FORJ $ = 1T016 
1800 K%«ASC(MID*(S$(I»),J%,1)) 

1810 PRINTC$(K$);:NEXTJ*,I* 

1820 G0SUBT970:F0RI*-0T011 

1830 L0CATE16 , I J:FORJ $ = 16T01STEP-1 

1840 Kit-ASC (MID$ (S$( 1$ ) , J* , 1 ) ) 

1850 PRINTC$(K*);:NEXTJt,I* 

1860 G0SUB1970:FORI $ = 11TOOSTEP-1 
1870 LOCATEO,23-IJ:F0RJ*=1T016 
1880 K*-ASC(MID$(S$(I*),J*,1)) 

1890 PRINTC$(K*)i:NEXTJ*,Il 
1 900 G0SUB1 970 :F0RIl = 11TOOSTEP-1 
1910 L0CATE16,2 3 ~I %:F0RJ% = 16T01STEP-1 
1920 K%=ASC(MID$(S$(I%),J*,1)) 

1930 PRINTC$(Kl);:NEXTJl,Il 
1 940 L0CATE4,21 : COLOR 15 :PRINT"TEMP0 LIM." 
TAB(23)"TEMPO" 

1950 PRINTTAB(6); TTI 
I960 RETURN 

1970 F0RIl=1T013:READKl:C$(Il)=CHR$(Kl):NE 
XTIl 
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1 980 

1 990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
21 1 0 
2120 
21 30 
21 40 
2150 
2160 
21 70 
21 80 
21 90 
2200 
2210 
2220 
2230 
2240 
2250 
2260 

2 

2270 

,2 

2280 

2290 


RETURN 

REM DEFINIZIONE FIGURE 
F0RI$=832T01984STEP64 
F0RJt=0T07 

K*-256-2*(7-J*):L*-2“(J*+1)-1 
MJ=2‘(8-J*)-1:N$=256-2‘J* 
VPOKEI$ + JJ,255:VPOKEIJ+J$ + 8,K$ 
VPOKEI**Jt*l6,L5E:VPOKEIt*JÌ + 24,M* 
VP0KEIJ*J**32,Nt:VP0KEIt»Jt*40,0 
NEXTJt.IJ 

FORIt=0TO11:F0RJJ-1T016 

READK$:S$(I$)-S$(It)*CHR$(K*) 

NEXTJJ.I» 

FORI % = 0 T01 :FORJt=OT02:FORK*=OTOl8 
READW$(Kt,Jt,It):NEXTKt,J*,I* 
FORIt-0TO3:S$-"":FORJt=OTO7 
READK*:S$=S$»CHR$(KJ):NEXTJ* 
SPRITE$(I*)=-S$:NEXTI* 

IJ-&HEFOO 

READH$ :IFH$-"x"THENRETURN 
POKEIt,VAL("&h"»H$) 

I*-I1 :G0T021 7 0 
REM ISTRUZIONI DATA 

DATA 8,1,1,1,1,1,1,1,1, 1,1, 1,1,1, 1,1 
DATA 9,8,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 
DATA 9,9,8,1,1,1,1,1,1,1,1,1,1, 1,1,1 
DATA 9,9,9,8,1,1,1,1,1,1,1,1,1,1,1,1 
DATA 5.5,5,5,10,2,2,2,2,2,2,2,2,2,2,2 
DATA 5,5,5,5,11,10.2,2,2,2,2,2,2,2,2, 

DATA 5,5,5,5,11,11,10,2,2,2,2,2,2,2,2 

DATA 5 , 5 , 5 , 5 , 6 , 6 , 6 , 12 , 3 , 3 , 3 , 3 , 3 , 3 , 3,3 
DATA 5 , 5 , 5 , 5 . 6 , 6 , 6 , 13 , 12 , 3 , 3 , 3 , 3 , 3 , 3 , 


3 

2300 DATA 5,5,5,5,6,6,6,7,7,4,4,4,4,4,4,4 
2310 DATA 5,5.5,5.6,6,6, 7,7, 4,4,4,4,4,4,4 
2320 DATA 5,5,5,5,6,6,6,7,7 ,4 , 4, 4 , 4, 4 , 4 , 4 
2330 REM 

2340 DATA 144,144,144,144,144,144,144,144, 

144,144,144,144,0,0,0,0,0,0,96 

2350 DATA 102,144,144,102.144,144.96,144,1 

44,96,144,144,6,0,0,6,0,0,96 

2360 DATA 102,102,144,102,102,144,96,96,14 

4,96,96,144,6,6,0,6,6,0,96 

2370 DATA 144,144,144,144,144,144,144,144, 

144,144,144,144,0,0,0,0,0,0,0 

2380 DATA 0,144,144,0,144,144,0,144,144,0, 

144,144,0,0,0,0,0,0,0 

2390 DATA 0,0,144,0,0,144,0,0,144,0,0,144, 
0 , 0 , 0 , 0 , 0 , 0,0 
2400 REM FRECCIA 

2410 DATA 16,56,68,130,16,16,16,16 
2420 DATA 8,4,2,255,2,4,8,0 
2430 DATA 16,16,16,16,130,68,56,16 
2440 DATA 16,32,64,255,64,32,16,0 
2450 REM 







TEMPO LIM 
4 0 0 


TEMPO 

226 


2460 

DATA 

23.23,5e,23,56,21,d,20,ed,53.0,e 

3 ,e3 

, eb , 6 

13,7e,d3,98,23,23,10,f9,c9,x 

2470 

REM 


2480 

DATA 

o 

o 

2490 

DATA 

o 

o 

o 

2500 

DATA 

1,1,0,1,0,1,1,0,1,1 

2510 

DATA 

0,1 ,0,1 , 1 , 1,0,0,0,1 

2520 

DATA 

o 

o 

o 

o 

2530 

DATA 

o 

o 

o 

o 

o 

2540 

DATA 

1,1,1,0,0,1,0,1,1,1 

2550 

DATA 

O 

o 

o 

o 

2560 

DATA 

1,1,1, 0,1,0,1,1,1,0 

2570 

DATA 

c\j 

o 

o 

o 

o 

2580 

REM 


2590 

DATA 

245,237,229,248,192,184,176,145, 

144, 

137,136,129,128 

2600 

DATA 

245,237,229,248,168,160,152,122, 

1 20 , 

114,112,106,104 

2610 

DATA 

221,213,205,248,192,184,176,148, 

144, 

140,136,132,128 

2620 

DATA 

221 ,21 3,205,248,168,160,152,123, 

1 20 , 

115,112,107,104 











Tiro al bersaglio 



Mettete a dura prova la vo¬ 
stra mira e la vostra pron¬ 
tezza di riflessi con questo 
divertente e molto ben con¬ 
gegnato programma. Ogni 
partita che effettuerete vi 
costerà 1 dollaro, fortunata¬ 
mente immaginario, ma se 
sarete degli abili tiratori po¬ 
trete rifarvi vincendo delle 
somme che variano a secon¬ 
da dei bersagli colpiti, che 
sono rappresentati da uccel¬ 
lini. 











■■ 



1 REM TIRO AL BERSAGLIO 

5 G0SUB60000 

10 REM INIZIALIZZAZIONE 

15 SCREEN1 ,2 : COLOR 1 ,1 5,1 5 :KEYOFF:PRINT" 
TIRO AL BERSAGLIO " 

20 FORICIT032:READQ:A$=A$*CHR$(Q):NEXT:SPR 
ITE$(0)=A$:A$="" 

25 F0RI=1T032:READQ:A$ a A$+CHR$(Q):NEXT:SPR 
ITE$(1)=A$:A$="" 

30 F0RI=1T032:READQ:A$=A$»CHR$(Q):NEXT:SPR 
ITE$(2)=A$:A$ = '"' 

35 FORI-1TO32:READQ:A$=A$»CHR$(Q):NEXT:SPR 
ITE$(3)=A$:A$="" 

AO F0RI=1T032:READQ:A$=A$+CHR$(Q):NEXT:SPR 
ITE$(A)=A$:A$."" 

A5 FORICITO32:READQ:A$=A$»CHR$(Q):NEXT:SPR 
ITE$(5)=A$:A$="" 

50 FORICIT032:READQ:A$=A$+CHR$(Q):NEXT:SPR 
ITE$(6)=A$:A$="" 

5 FORI=1 072T01119 :READQ:VPOKEI,Q:NEXT 

60 DEFUSR=60118l:POKE59997! ,2 :POKE59998!,1 

:POKE59999! ,5 :PUTSPRITE2,(255,80),A 

65 D=USR(D):IFINKEY$<>""THEN80 

70 D=RND(1 ):IFVPEEK(6922)»8THENVROKE6922,1 

2ELSEVP0KE6922.8 

75 FORICIT0120 :NEXT:G0T065 

80 DH=-1 

99 REM DISEGNO SCHERMO 

100 CLS:VPOKE6922,8:PUTSPRITE2,(255,36),12 
: PUTSPRITE3,(1AO,36),12:PUTSPRITEO,(100,16 
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),8 :PUTSPRITE4,(0,64),4 :PUTSPRITE5,(115,64 
) , 4 

110 F0RI=6145T06206:VP0KEI,23:NEXT:FORI=67 
29T06742:VPOKEI,23:NEXT:FORI=6793TO6806:VP 
0KEI,23 :NEXT 

115 FORI = 6816T06847:VPOKEI,139 :NEXT: FORI = 6 
496T06784STEP32:F0RJ-0T07:VPOKEI+J,134:VPO 
KEI+J+24,134:NEXT:NEXT 

120 VP0KE6144,24:VP0KE6728,24:VP0KE6176,26 
:VPOKEò792,26:VPOKE6175,25:VPOKE6743,25:VP 
0KE6207,27 :VPOKE6807,27 

125 VP0KE6760,22:VP0KE6775,22:VP0KE6703,13 
5:VP0KE6735,136:VP0KE6767,137 
130 STRIG(0)0N:ONSTRIGGOSUB700 
140 GOSUB800 

199 REM CONTROLLO 

200 GOSUB3O0:GOSUB35O:GOSUB4OO 
210 IFDH>=0THENGOSUB450 

220 IFUM»1THENGOSUB800:UM=0 
290 GOT0200 

299 REM MOVIMENTO BERSAGLIO SUP. 

300 POKE59999! ,7:POKE599971,0:IFRND(1 )<.5 T 
HENP0KE59998!,1ELSEPOKE59998 ! ,3 

320 IFVPEEKC6913)>194THENP0KE59998!,1ELSEI 
FVPEEK(6913)<65THENP0KE59998! ,3 
330 D=USR(D) 

335 IFRND(1X.5THENVP0KE6914, 4ELSEVPOKE69 1 
4,0 

340 RETURN 

349 REM MOVIMENTO BERSAGLIO MEDIO 

350 P0KE59999! ,13 :P0KE59997!,2:K1=VPEEK(69 
22):VPOKE6922,VPEEK(6926):VPOKE6926,K1 

360 POKE59998!,1:D-USR(D):POKE59997!,3:D=U 
SR(D) 

370 RETURN 

399 REM MOVIMENTO BERSAGLIO BASSO 

400 C2 a (C2+1)M0D2:POKE59997! ,4 :IFC2 = 0THENK 
1»VPEEK(6930):VPOKE6930,VPEEK(6934):VPOKE6 
934,K1 

410 P0KE59999! ,4:P0KE59998! ,3:D = USR(D):P0K 
E59997!,5:D=USR(D) 

430 RETURN 

449 REM NUOVO BERSAGLIO 

450 ON(DH+1)GOTO465,469,470,475,480,485 
465 PUTSPRITE0,(100,16):GOT0490 

470 VP0KE6922,8 :VP0KE6926,1 2 
472 GOTO490 

475 VP0KE6922,8:VP0KE6926,12 
477 G0T0490 

480 VP0KE6930,1 6 :VPOKE6934,20 
483 GOTO490 

485 VP0KE6930,1 6 :VP0KE6934,20 
490 DH=.-1 : RETURN 

499 REM BERSAGLIO COLPITO 

500 PLAT"150m1200s1On74r30n74r30n74r30n74r 
30n74r30n74r30n74":ON(DH-*1 )G0T0505,508,510 
,515,520,525 








505 M = M +1:VPOKE6919,29:FORI2-1TO500:NEXT 
507 VPOKE6919,0:GOT0590 

510 M=M*.5:VPOKE6922,29: FORI 2 = 1 T0500:NEXT 
512 VP0KE6922,8 :GOTO590 

515 M=M+.5:VPOKE6926,29:FORI2-1T0500:NEXT 
517 VROKE6926,12:G0T0590 

520 M = M + . 2 : VPOKE6930,2 9 : FOR 12= 1 T0500 : NEXT 
522 VPOKE6930,1 6:G0T0590 

525 VP0KE6939,29:M=M* . 2 : FOR I 2 = 1 T0500 : NEXT 

527 VPOKE6939,20 

90 UM-1:STRIG(0)ON:RETURN 

599 REM BERSAGLIO MANCATO 

600 STRIG(0)0N:VPOKE6191,138:FOR 11-1 T0100": 
NEXT:VP0KE6191,23 

620 UM = 1 : RETURN 

699 REM SPARO 

700 STRIG(0)OFF: PLAY"I69m60s8rt27":NS = NS+1 
710 IFABS(VPEEK(6929)-119)<3THENDH-9:G0T05 
00 

720 IFABS(VPEEK(6933)-119)<3THENDH-5:G0T05 
00 

730 IFABS(VPEEK(6921)-119)<3THENDH-2:G0T05 
00 

790 IFABS(VPEEK(6925)-11 9 )<3THENDH = 3 :G0T05 
00 


Il bersaglio più basso, il più 
lento e quindi il più sempli¬ 
ce da colpire, vale 20 cente¬ 
simi, quello centrale, legger¬ 
mente più veloce, 50 cente¬ 
simi, quello più alto, il ber¬ 
saglio pazzo, che si muove 
in maniera imprevedibile ed 
è quindi molto difficile da 
mirare, vi farà vincere 1 dol¬ 
laro. Per ogni partita avete a 
disposizione 5 colpi da uti¬ 
lizzare senza limiti di tem¬ 
po, terminati i quali vi verrà 
chiesto se desiderate gioca¬ 
re ancora, addebitandovi il 
costo della nuova partita, al¬ 
trimenti verrà visualizzata 
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la vostra situazione. Per 
sparare è sufficiente preme¬ 
re la barra-spazio. 

Se volete modificare la velo¬ 
cità del movimento dei ber¬ 
sagli rendendo il gioco più 
facile oppure più difficile, 
potete agire sui valori della 
linea 350 per il bersaglio 
centrale e 410 per il bersa¬ 
glio basso. 


Tratto dalla rivista 
settimanale “Paper Soft" 


750 IFABS(VPEEK(6913)-114)<3THENDH=0: G0T05 
00 

760 GOT0600 

799 REN AGGIORNAMENTO VINCITA 

800 IFM>=OTHENA$=" Vino! : $"ELSEA$=" Pe 
r d 1 : $ " 

805 IFM<OTHENI3 ss INT(-M):I4 = -(M + I3)ELSEI3 a I 
NT(M):I9=M-I3 

807 F0RI=1T022:PRINT:NEXT:PRINTA$;:PRINTUS 
ING"###";I3;:PRINTUSING" .; 14 :PRINTCHR$( 
ti); 

810 IFNS>4THEN850ELSERETURN 

849 REM ALTRI COLPI? 

850 PLAY"11Osi4m2000n30n40n20n27":STRIG(O) 

0FF:F0RI»1T023:PRINT:NEXT:PRINT"Altri 5 oo 
lpi? (S/N) ";C H R $(11); 

855 X$=INKEY$:IFX$=”"THEN855ELSEIFX$<>"S"A 
NDX$<>"s"ANDX$<>"N"ANDX$<>"n"THEN855 
860 IFX$="N"0RX$="n"THEN900 
865 M=M-1:NS=0:G0SUB800 

870 F0RI=6882T06910:VPOKEI,32:NEXT:STRIG(0 
)0N : RETURN 

899 REM GAME OVER 

900 SCREEN1 :1FM<OTHENPRI NT"PERDI :$";:PRI 
NTUSING"«0 . ##" ; -M : G0T0990 

920 PRINT”HAI VINTO : $ " ; : PRINTUSING” ## // 















.##";M:G0T0990 

990 IFINKEY$O""THENENDELSE990 

999 REM DATA SPRITES 

1000 DATA 128,6«,96,56,28,13.7,3.1 .2.0,0,0, 
0,0,0, 1,2,6,28,56,176,229,192,128,69 ,0,0,0 
, 0 , 0,0 

10010 DATAO,0,0,0,0,1 ,7,15,25,50,32,32,32, 
0,0,0,0,0,0,0,0,128,229,290,152,76,9,9,9,0 
, 0,0 

10020 DATAO,0,0,0,3,19,29,12,6,115,255,63, 
7,0,0,0,0,0,0,0,252,32,69,32,298,255,255,2 
59,252,298,0,0 

10030 DATAO,0,0,0,1,115,255,63,3,7,7,3,0,0 
,0,0,0,0,0,0,298,259,255,255,252,298,298,2 
98,252,62,15,0 

10090 DATAO,0,0,0,63,9,2,9,63,255,255,127, 
63,31 ,0,0,0,0,0,0,1 92,1 1 2,29,98,229,206,25 
5,252,229,0,0,0 

10050 DATA0,0,0,0,31,127,255,255,63,31,31. 
31,63,129,290,0,0,0,0,0,128,206,255,252,19 
2,229,229,192,0,0,0,0 

10060 DATAI 30,200,96,99,25,95,39,75,19,5,6 

6.9.65.199.9.39.1.35.6.190.216.177.229.201 
,196,199,66,32,9,18,128,1 

10099 REM DATA CARATTERI 

10100 DATAI 70,85,170,85.170,85,170,85 
10102 DATA96,32,32,32,32,32,32,32 

10109 DATA32,32,98,98,98,98,112,56 
10106 DATA98,56,56,56,60,60,60,60 
10108 DATAO,0,29,36,82,133,69,18 

10110 DATAI 70,85,170,85,0,0,0,0 
60000 CLS:REST0RE60020 

60010 FORI=6OOO0!TO6O217!:READQ:POKEI,Q:NE 
XT:RESTORE: RETURN 

60020 DATA219,170,230,290,33,92,239,99,296 
,8,0,0,0,0,0,0,0,0,0,0,0,211,170,219,169,7 
1,0,0,0,0,0,0,0,0 

60030 DATAO,0,0,230,128,199,151 ,239,203,91 
,202,151,239,62,3,50,99,239,195,209,239,12 
0,230,69,199,170,239,203,83,202,170,239,62 
,2 

60090 DATA50,99,239,195,209,239,120,230,32 
,199,189,239,203.67,202,189,239,62,0,50,99 

, 239 , 195 , 209 , 239 , 120 , 230 , 16 , 199 , 208 , 239,20 

3,75,202,208,239,62,1,50,99,239,195,209,23 

9.201 ,62,0,50,93,239,58 

60050 DATA93,239,203,39,203,39,79,6,0,33,0 
,27,9,58,95,239,71,58,99,239,87,259,0,199, 

250,239,205,27,235,121,152,79,195,99,235,2 

59 

60060 DATAI,199,6,235,35,205,27,235,195,29 
I 9,239,259,2,199,20,235,205,27,235,121 ,128, 
79,195,99,235,35,205,27,235,195,19,235,125 
,293,211 

60070 DATA153,129,211,153,0,0,0,0,219,152, 
79,183,251,201,125,293,211,153.129,296,69, 
21 1 , 1 53,1 21 .21 1 , 152,251 ,201 






Batteria Elettronica 



Ecco finalmente un interes¬ 
sante programma capace di 
generare una molteplicità di 
suoni diversi simulando 
molti strumenti a percus¬ 
sione. Il programma musi¬ 
cale dello scorso numero 
usava il potentissimo co¬ 
mando PLAY, che permette 
una rapida traduzione di 
spartiti per creare motivi 
musicali; questo invece, la¬ 
vora direttamente sui regi¬ 
stri del generatore audio, 
producendo effetti normal¬ 
mente non ottenibili. 

Questo grazie al comando 
SOUND degli MSX, che agen¬ 
do direttamente sui fattori 
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li 

EM BATTERIA ELETTRONICA 



1 0 

COLOR 15,8:CLS:KEY0FF 

KEY 

1 , " < H E L P > 

" ♦ C H R 

$ ( 1 

3 ) :WIDTH37:0NST0PG0SUB1 0 



20 

STOPOFF 




30 

PRINT:PRINTSPC(11 ) ; "BATTE 

RIA ELETT 

RONIC 

40 

PRINT:PRINT"Inserisci 

1 a 

sequenza" 

: PRIN 

T:LINEINPUTBt 




50 

IFB$="<HELP>"THEN1670 




60 

PRINT:PRINT"Inserisci 

il 

ritardo": 

PRINT 

: IN 

PUTC 




70 

STOPON 




80 

FORICITOLEN(B $) 




90 

D$>MID$(B$,1,1) 




100 

I F D $ = "."THEN140 




110 

S0UND5,15 




1 20 

E»ASC(D$)-6H 




1 30 

0NEG0SUB170,260,350, 

140 , 

590,680,770,92 

o , 1 

070,1220,1370,1520 




1 4 0 

FORZAI TOC :NEXTZ 




150 

NEXTI 








160 GOT080 

170 SOUND6.15 

180 S0UND7,&B10000111 

190 S0UND8,63 

200 S0UND9 , 63 

21 0 S0UND10,63 

220 S0UND11 ,0 

230 S0UND12,12 

240 S0UND13,0 

250 RETURN 

260 S0UND6,15 

270 S0UND7,&B10111111 

280 S0UND8,63 

290 SOUND9.63 

300 S0UND10,63 

310 S0UND11 , 0 

320 S0UND12,16 

330 SOUND13 » 0 

340 RETURN 

350 S0UND6.63 

360 S0UND7,&B10111111 

370 SOUND8.63 

380 SOUND9,63 

390 SOUND 10,63 

400 S0UND11,0 

410 S0UND12,100 

420 SOUND 13,3 

430 RETURN 

440 SOUNDO,255 

450 SOUND 1 ,0 

460 S0UND2,255 

470 SOUND3 * 0 

480 SOUND4.255 

490 S0UND5.0 

00 S0UND6,63 

510 S0UND7,&B10111000 

520 SOUND8.63 

530 S0UND9,63 

540 S0UND10,63 

550 S0UND11,10 

560 S0UND12,25 

570 S0UND13,3 

580 RETURN 

590 S0UND6.3 

600 S0UND7,&B10000111 

610 S0UND8,63 

620 S0UND9,63 

630 S0UND10,63 

640 S0UND11,0 

650 S0UND12,10 

660 SOUND 13,0 

670 RETURN 

680 S0UND6.3 

690 S0UND7 ,&B1 00001 1 1 

700 S0UND8,63 

710 SOUND9,63 

720 SOUNDIO.63 




di frequenza, attacco, deca¬ 
dimento, rumore bianco 
ecc., del segnale, ci permette 
un totale controllo sulla for¬ 
ma d’onda finale e quindi sul 
suono prodotto. 

Seguendo questa via possia¬ 
mo ottenere pressoché tutti 
gli effetti e tutti i suoni che 
il computer è in grado di ge¬ 
nerare, e nel caso specifico 
simulare una batteria elet¬ 
tronica. 

Il programma genera 12 ef¬ 
fetti diversi, che potete li¬ 
stare premendo il tasto FI. 
Alle due richieste di input 
iniziali, dovrete rispondere 
con una sequenza di lettere 
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(maiuscole), corrispondenti 
agli effetti di cui si richiede 
l’esecuzione in sequenza 
(per esempio ERR) e poi il 
tempo di ripetizione (p. es. 
300). 

Premendo il tasto RETURN 
comincia l’esecuzione di ciò 
che avete impostato finché 
non premerete CTRL e STOP. 
In questo modo, è molto 
semplice ottenere ritmi da 
batteria elettronica, oppure 
rumori vari per sonorizzare 
games o qualsiasi program¬ 
ma di vostra ideazione. 


730 

SOUND 11 ,5 


7 40 

S0UND12,10 


750 

S0UND13,9 


760 

RETURN 


770 

SOUNDO,255 


780 

S0UND1,15 


790 

S0UND2,255 


800 

S0UND3,5 


810 

S0UND9,255 


820 

S0UND5,10 


830 

S0UND6 , 11 


8M0 

S0UND7.&B10111 

000 

850 

S0UND8,63 


860 

S0UND9,63 


870 

S0UND10,63 


880 

S0UND11,10 


890 

S0UND12,30 


900 

S0UND13,1 


910 

RETURN 


920 

SOUNDO,10 


930 

SOUND 1,15 


990 

S0UND2,10 


950 

S0UND3,15 


960 

S0UND9,10 


970 

S0UND5,15 


980 

S0UND6,16 


990 

S0UND7,&B10000 

111 

1000 

S0UND8,63 


1010 

S0UND9,63 


1020 

SOUND 10,63 


1030 

S0UND11,10 


1090 

S0UND12,16 


1 050 

S0UND13,0 


1060 

RETURN 


1070 

SOUNDO,255 


1080 

S0UND1,1 


1090 

S0UND2,255 


1 1 00 

S0UND3,1 


1110 

S0UND9,255 


1 1 20 

S0UND5,1 


1 1 30 

S0UND6,2 


1 1 90 

S0UND7, &B1011 

1000 

1 1 50 

S0UND8,63 


1 1 60 

S0UND9,6 3 


1 1 70 

SOUND 10,63 


1 1 80 

SOUND 11,20 


11 90 

S0UND12,92 


1 200 

S0UND13,0 


1210 

RETURN 


1 220 

SOUNDO,0 


1 230 

S0UND1,0 


1 290 

S0UND2,0 


1 250 

S0UND3 , 0 


1 260 

S0UND9,0 


1 270 

SOUND5.0 


1 280 

S0UND6.1 


1290 

S0UND7 , &B1001 

1111 
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1300 SOUND8,2 4 

1310 S0UND9 , 24 

1320 S0UND10.24 

1 330 SOUND 11,0 

1340 S0UND12,25 

1350 S0UND13,0 

1360 RETURN 

1370 S0UND0.255 

1 380 SOUND 1 ,2 

1390 S0UND2.255 

1400 S0UND3 t 2 

1H10 S0UND4,255 

1420 S0UND5.2 

1430 S0UND6.1 

1440 S0UND7.&B10011000 

1450 S0UND8.24 

1 460 S0UND9 , 24 

1470 S0UND10,24 

1480 S0UND11,0 

1490 S0UND12,10 

1500 S0UND13,0 

1510 RETURN 

1520 SOUNDO,255 

1 530 S0UND1 ,1 5 

1540 S0UND2,255 

1550 SOUND3,15 

1560 S0UND4,255 

1570 S0UND5.15 

1580 S0UND6,15 

1590 S0UND7,&B10111111 

1600 S0UND8,63 

1610 S0UND9,63 

1620 SOUND 10,63 

1630 S0UND11,0 

1640 S0UND12,10 

1650 S0UND13,0 

1660 RETURN 

1670 COLOR 1,6:CLS 

1680 PRINT:PRINTSPC(11):"BATTERIA ELETTRON 
ICA":PRINT 

1 690 PRINT:PRINT”A... Piatto 1" 

1 700 PRINT"B. . .Cassa" 

1710 PRINT"C...Cassa & dissolvenza" 

1 720 P RIN T"D_Effetto 1" 

1 730 PRINT"E.. .Piatto 2" 

1 740 PRINT"F_Effetto 2" 

1750 PRINT"G... Ronzio" 

1760 PRINT"H...Piatto 3" 

1 770 PRINT"I.. .Campanello" 

1 780 PRINT"J . ..Piatto 4" 

1 790 PRINT"K.. .Campana" 

1800 PRINT"L.. .Cassa 2" 

1810 PRINT:PRINTSPC(6);"Premi la barra-spa 
zio per uscire." 

1820 A$=INKEY$ 

1 830 IF A $ < >" "THEN1820 
1840 COLOR 15,8:G0T010 





Calendario 



Con questo semplice ma uti¬ 
lissimo programma, potrete 
ottenere sullo schermo del 
vostro MSX il calendario del 
mese e dell’anno che vorre¬ 
te. Potrete comodamente ve¬ 
dere in che giorno della set¬ 
timana siete nati oppure 
programmare il prossimo 
ponte natalizio. Dopo aver 
caricato il programma da 
cassetta con il consueto co¬ 
mando CLOAD ed avviatolo 
con il RUN, vi apparirà il ca¬ 
lendario del Gennaio 85. 
Premendo i tasti del cursore 
in alto e in basso potrete 
cambiare l’anno a cui il ca- 
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1 000 

REM CALENDARIO 


1010 

REM PERPETUO 


1 020 

REM 


1030 

REM 


1 ono 

KEYOFF 


1 050 

WIDTH38 


1 060 

DIMM$(12),01(12) 


1070 

REM INIZIALIZZAZIONE 


1080 

F0RI=1T012:READM$(I) ,D1 (I 

):NEXT 

1 090 

F0RI=1T07:R EA DA $(I):NEXT 


1 1 00 

DATA Cernia io,31,Febbraio, 

28 .Marzo,31» 

Apri 

e,30,Maggio,31 .Giugno,30, 

Lugllo,31,Ag 

osto 

31 .Settembre,30,Ottobre,3 

1.Novembre,3 

0,Dicembre,31 


Ilio 

DATA Dom,Lun,Mar,Mer,Glo, 

Ven,Sab 

1 1 zo 

REM 


1 1 30 

YR=1985:MT-1 


1 1 no 

CLS: COLOR 1,15 


1 1 50 

IFYR/A=INT(YR/U)THEND1 (2) 

=29ELSED1(2) 

-28 



1 1 60 

X=YR:N=MT-3:J-12:G0SUB12A 

0 :MM = L: IFMM> 

9THENX-X-1 


1 1 70 

N=X:J=A00:G0SUB12 AO:X = L 


1 1 80 

XH-INT(X/l*):X1-INT(X/100) 

:KY=X+X4-X1: 

N = MM 

J=5:GOSUB12AO:K2=L 


1 1 90 

M5=INT(MM/5):M2=INT(K2/2) 


1200 

N=K2:J=2:G0SUB12A0:P=L 


1210 

KM=13*M5 + 5*M2+3*P 


1 220 

N = KY + KM+3:J = 7:G0SUB12HO :B 

■L + 1 

1230 

G0T01270 










I 




1240 K=INT(N/J):L=N-K*J 
1250 IFL< OTHEN L =L + J 
1260 RETURN 

1 270 L0CATE6,0 :PRINTM$(MT);TAB(25);YR 
1 280 PRINT :C = 1 


1290 B$(B)=A$(B)+C$+" 1 

9 :DD$ = " 29" 

1 300 G0SUB1 490 :G0SUB151 0 

8 

15 

22":DT*2 

1310 B$(B)=A$(B)+C$ + " 2 

0 : DD$ = " 30" 

1320 G0SUB1490:GOSUB1510 

9 

16 

23”:DT= 3 

1330 B$(B)=A$(B)+C$+" 3 

1 :D D $ = " 31" 

1340 G0SUB1490:G0SUB1510 

1 0 

17 

2H" :DT = 3 

1350 B$(B)=A$(B)+C$+" 4 

31510 

1 1 

18 

25":GOSU 

1360 B$(B)“A$(B)+C$+" 5 

B1 5 1 0 

1 2 

19 

26":GOSU 

1370 B$(B)=A$(B)+C$+" 6 

B1 5 1 0 

13 

20 

27":GOSU 

1380 B$(B)=A$(B)+C$+" 7 

B1 51 0 

1 H 

21 

28":GOSU 

1390 FORICIT07:PRINTTAB(6)B$(I)” 
NT : PRINT:NEXT 

" : P RI 


1400 C$-"":S=STICK(0) 

1410 IFS-1THENYR-YR-1:G0T01150 

1 420 IFS = 3THENMT = MT + 1:1FMT>12THENMT= 1 :YR = Y 

R*1 : GOTO 1150ELSE1150 

1430 IFS=5THENYR=YR+1:G0T01150 

1 4 40 IFS=7THENMT=MT-1:IFMT<1THENMT = 12 :YR = Y 

R-1 : GOTO 1150ELSE1150 

1450 A$=INKEY$ 

1460 IFA$="Q"0RA$="q"THENCLS:KEYON:COLOR 1 
5,4,4:END 

1470 IFA$="P"ORA$="p"THEN1560 
1 480 GOTO 1400 

1 490 IFD1 (MT)> = DT THEN B$ ( B )'=B$ ( B ) +DD$ 

1500 RETURN 

1510 B = B +1:C=C*1 

1520 IFB>7THENB=1:C$ = " " 

1530 IFC>7THENRETURN1390 
1540 RETURN 
1550 REM STAMPA 

1 560 CLS: LOCATE 12,0 :PRINT"** STAMPA ** 

1570 REM 

1580 LPRINTCHR$(27) + "W"+CHR$(1)+CHR$(27) + " 
E" 

1590 LPRINTM$(MT);TAB(24);YR 

1600 LPRINTSTRING$((LEN(M$(MT)),61);TAB(25 

1610 LPRINT:LPRINT 

1620 LPRINT:F0RI*1T07:LPRINTTAB(3)B$(I):LP 
RINT:NEXT 
1630 REM 

1640 LPRINTCHR$(27) + "W"+CHR$(0)+CHR$(27) + " 
F":LPRINT 
1 650 GOT01140 







lendario si riferisce, pre¬ 
mendo i tasti sinistro e de¬ 
stro, potrete passare in ras¬ 
segna i dodici mesi. 

Nella sua semplicità il pro¬ 
gramma può risolvere tutti i 
vostri presenti e futuri pro¬ 
blemi di datazione, per ovvie 
ragioni non possono essere 
evidenziate le feste infraset¬ 
timanali, ma francamente 
sarebbe chiedere troppo! 

Tratto dall’archivio 
della Jackson 
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Splash 


si 






Questa è una versione più- 
umana e più divertente del 
famosissimo gioco dell’im¬ 
piccato. Si tratta di indovi¬ 
nare una parola “pensata” 
dal computer procedendo 
per tentativi di una lettera 
alla volta. Se il giocatore 
non riesce ad indovinare la 
parola in tempo, tutte le let¬ 
tere sbagliate spingono un 
particolare carattere dentro 
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1000 REM SPLASH 
1010 REM 

1020 MAXFILES-2:0PEN"GRP:S"F0R0UTPUTAS1 
1030 G0SUB1520 
1040 W=INT(RND(-TIME)*60)+1 
1050 W$=D$(W) 

1060 G0SUB1320 
1070 G0SUB1750 
1080 FLAGRO 

1090 IFT$=W$THENG0T01180 

1100 IFLEN (G$ ) =* 1 OTHENGOTOI 1 40 

1110 G0T01070 

1120 REM PARTITA PERSA 

1130 REM 

1140 G0SUB1580 

1145 PRESETI 8,152):PRINT#! ,"La parola era 

n 

1146 PRESET(8,175):PRINT#1,W$ 

1150 G0T01280 

1160 REM PARTITA VINTA 
1170 REM 
1180 0CT = 8 

1190 IFG$ = ""THENGOT01260 
1200 F0RN=LEN(G$)T01STEP-1 
1210 G$=RIGHT$(G$,N-1) 

1220 M$ = "S11L640"*STR$(OCT) + "C":PLAYM$ 

1 230 G0SUB1 840 :PRINT" » 

1240 F0RW=1TO250:NEXTW 
1250 NEXTN 

1260 PRESET(62,16):PRINT#1,"COMPLIMENTI" 












1 1 270 PRESET( 62,2 4 ) : PRINT4M ---" 

1 280 A$ = INKEY$:IFA$ = ""IMENI 280 
1 290 BEEP: GOTO 1040 
1300 REM SCHERMO 
1310 REM 

1320 SCREEN2,0,0:KEYOFF 

I l 330 COLOR 15,1,1:CLS 

13*10 PRESET ( 80,0 ): PRINT#1 , "SPLASH" : COLOR 3 
1 350 A$ = '"':F0RN = 1T05:A$ = A$»CHR$(&HCB)*CHR$ 
(&HCC):NEXTN 

1360 PRESET(64,8):PRINT#1 ,A$ 

1 370 PRESET(2 4,56): COLOR 13 :0$=CHR$(1)*CHR 
$(&HCC):PRI NT #1 ,0$ 

1380 LINE(128,100)-(208,160),4,BF 
1 390 LINE(1 20,88)-(1 28,100) , A 
1400 LINE(216,88)-(208,100),4 
1910 LINE(0,65)-(104,65),14 
1 A20 LINE-STEP(20,28) , 1 A 

1M 3 0 COLOR 11 :PRESET(8,80):PRINT#1 ,"PAROLA 

1440 PRESET(40,120):T$="":G$=”" 

1450 COLOR 5:F0RN=1T0LEN(W$) 

1460 PRINT/M :T$=T$*” " 

1470 NEXTN 
1490 RETURN 

1500 REM INIZIALIZZAZIONE 
1510 REM 

1520 RESTORE1910 
1530 DIMD$(60) 

1540 FORNAITQ60:READD$(N):NEXTN 




una piscina. 

Il programma contiene cir¬ 
ca 60 parole, ma questo nu¬ 
mero può essere aumentato 
facilmente con delle sempli¬ 
ci modifiche al programma. 
Se azzeccate una lettera, 
questa apparirà nella posi¬ 
zione che essa occupa nella 
parola. Se invece la lettera 
che avete introdotto non 
compare nella parola, la po- 
29 


















vera vittima viene spinta di 
uno spazio verso la piscina. 
Se la parola non verrà com¬ 
pletata in tempo assisterete 
ad uno spettacolare tuffo 
nella piscina della piccola 
figura, la parola misteriosa 
verrà svelata e tutto rico¬ 
mincierà dall’inizio pre¬ 
mendo un tasto. 


Tratto dalla rivista 
settimanale “Paper Soft" 


Non perdete il 
prossimo numero di 
Jackson Soft 
Compilation. Lo 
troverete in edicola il 
10 Novembre. 


1550 RETURN 
1560 REM SPLASH 
1570 REM 

1580 F0RN=106T0152STEP2 
1590 COLOR 1 :PRESET(N-'2,N-50) 

1600 PRINTtfl t CHR$(1)+CHR$(&HCB) 

1610 COLOR 9 : PRESET(N,N-98) 

1620 PRINT #1 ,CHR $(1 ) + CHR$(&HCB); 

1630 NEXTN 
1690 RESTOREI 720 

1650 F0RN=6T013 :READA:SOUNDN,A :NEXTN 
1660 LINE-STEP(-8.0),9 

1670 FORICIT015:J=-RND(-TIME)*20:K=RND(-TI 
ME)«90-20 

1680 LINE-STEP(K,J),9 :LINE-STEP(-K,-J),9 
1690 NEXTI 

1700 FOR W=* 1 T0500 : NEXTW 
1710 RETURN 

1720 DATA 15,135,16,16,16,0.16,0 
1730 REM INKEY$ 

1790 REM 

1 750 A$=INKEY$: I FA$ = ""THENGOT01750 

1760 A$ = CHR$‘(ASC(A$)AND223):PLAY"09S11L16C 

1770 IFA$<"A"0RA$>"Z"THENG0T01750 
1 780 F’L A G = 0 : C 0 L 0 R 9 
1790 FORN=1TOLEN(W$) 

1800 IFMID$(W$,N,1)-A$THENPRESET((N*9)»8,1 
12) :P RINT #1 ,A$:MID$(T$,N,1 )=A$:FLAG = 1 
1810 NEXTN 

1 82 0 IFFLAG=1THENPLAY"CAB": RETURN 
1830 G$ = A $ + G$ 

1890 PRESET(29,56):COLOR 1>PRINT#1,0$ 

1 850 PRESET(29,56): COLOR 13 

1860 IF LEN(G$)/2=INT(LEN(G$)/2) THEN M-&H 
CB ELSE M=&HCC 

1870 0$=G$+CHR$(1)*CHR$(M):PRINT#1,0$; 

1880 RETURN 
1890 REM DATA 
1900 REM 

1910 DATA ACUTO,AVVERBIO,ALBERO,ALTERO,AME 
RICA , FACILE.CERVELLO.CASSETTA.DISCO.MAESTR 
0 

1920 DATA MELONE,OPERA,PITONE,GIRAFFA,VOLA 
NTE,PI ATTO,ENERGIA,RI POSO,SOSPIRO.GOMITO 
193-0 DATA NEGOZIO,OMBRELLO,CAMICIA .SCARPE, 
ANI MALE,COMPUTER,MONITOR,PERTITA,SCUOLA,AM 
ICO 

1990 DATA VITTORIA,ESTREMO,FOSFORO,FORMICA 
.GALLINA,GIUDIZIO,GIUDICE,TASCA,POPOLO,RAM 
AZZA 

1950 DATA CANTINA,SATELLITE,SCIOCCO.SAPONE 
.CHITARRA .COMMEDIA.COMPITO.MUSICA.CASSETTO 
.CARRELLO 

1960 DATA PIGIAMA,QUADRO,CORNICE,OROLOGIO, 
ANTENNA,SEGGIOLA,TAPPETO,POLTRONA,CESTI NO, 
GIARDINO 
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GRUPPO 

EDITORIALI 

JACKSON 


IN EDICOLA 
JACKSON SOFT 
SERIE ORO 


Corri in edicola, il vero gioco comincia solo adesso 
e se sei davvero bravo partecipa alla “sfida al campione’’, 
utilizzando il tagliando che troverai sull’ultima pagina 
di copertina di ogni numero. 


I giochi esclusivi per 
Commodore 64 e Spectrum 48 K 
importati dall’Inghilterra, mai 
presentati in Italia. 

Una sfida Jackson al già visto, ; 
già fatto, al... già registrato. 







